home *** CD-ROM | disk | FTP | other *** search
- %case doChoice%
- %DoChoice%
- %case itemNr%
- %DefineItem%
- %case classDecl%
- %if classname = TSScrollBar%
- %elsif classname = TScrollBar%
- %else%
- /*----------*/
- class %classname% : public %superClass% {
- public:
- #if qInspector
- virtual pascal void Fields (pascal void (*DoToField)
- (StringPtr fieldName,
- Ptr fieldAddr,
- short fieldType,
- void *DoToField_StaticLink),
- void *DoToField_StaticLink); // override
- #endif
- }; /*%classname%*/
- %endif%
- %case gDeadStripSuppression%
- %if classname = TSScrollBar%
- %elsif classname = TScrollBar%
- %else%
- dummy = new %classname%;
- %endif%
- %case classMethods%
- %if classname = TSScrollBar%
- %elsif classname = TScrollBar%
- %else%
- %classMethods%
- %endif%
-